home *** CD-ROM | disk | FTP | other *** search
- object Form23: TForm23
- Left = 217
- Top = 136
- BorderStyle = bsNone
- Caption = 'M��teri Talepleri Giri�i'
- ClientHeight = 480
- ClientWidth = 640
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 640
- Height = 480
- AutoSize = True
- Picture.Data = {<image000.jpg>}
- OnMouseDown = Image1MouseDown
- end
- object Label1: TLabel
- Left = 72
- Top = 112
- Width = 24
- Height = 13
- Caption = 'Semt'
- Transparent = True
- end
- object Label8: TLabel
- Left = 72
- Top = 160
- Width = 16
- Height = 13
- Caption = 'Kat'
- Transparent = True
- end
- object Label10: TLabel
- Left = 72
- Top = 184
- Width = 20
- Height = 13
- Caption = 'Oda'
- Transparent = True
- end
- object Label11: TLabel
- Left = 72
- Top = 328
- Width = 27
- Height = 13
- Caption = 'Adres'
- Transparent = True
- end
- object Label12: TLabel
- Left = 72
- Top = 352
- Width = 43
- Height = 13
- Caption = 'A��klama'
- Transparent = True
- end
- object Label13: TLabel
- Left = 176
- Top = 248
- Width = 53
- Height = 13
- Caption = 'Fiyat Aral���'
- Transparent = True
- end
- object Label14: TLabel
- Left = 72
- Top = 208
- Width = 46
- Height = 13
- Caption = 'Is� Sistemi'
- Transparent = True
- end
- object Image2: TImage
- Left = 456
- Top = 245
- Width = 13
- Height = 15
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Transparent = True
- end
- object Label19: TLabel
- Left = 72
- Top = 136
- Width = 29
- Height = 13
- Caption = 'Emlak'
- Transparent = True
- end
- object Label21: TLabel
- Left = 360
- Top = 112
- Width = 18
- Height = 13
- Caption = '�sim'
- Transparent = True
- end
- object Label22: TLabel
- Left = 360
- Top = 136
- Width = 15
- Height = 13
- Caption = 'Tel'
- Transparent = True
- end
- object Label23: TLabel
- Left = 360
- Top = 160
- Width = 26
- Height = 13
- Caption = '�� Tel'
- Transparent = True
- end
- object Label24: TLabel
- Left = 360
- Top = 184
- Width = 37
- Height = 13
- Caption = 'Cep Tel'
- Transparent = True
- end
- object Label26: TLabel
- Left = 360
- Top = 208
- Width = 31
- Height = 13
- Caption = 'Durum'
- Transparent = True
- end
- object Image3: TImage
- Left = 72
- Top = 408
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image002.jpg>}
- Visible = False
- end
- object Image6: TImage
- Left = 248
- Top = 408
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image003.jpg>}
- Visible = False
- end
- object Image7: TImage
- Left = 416
- Top = 408
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image004.jpg>}
- Visible = False
- end
- object Label2: TLabel
- Left = 80
- Top = 416
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Liste'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label2MouseDown
- OnMouseUp = Label2MouseUp
- end
- object Label27: TLabel
- Left = 256
- Top = 416
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Yazd�r'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label27MouseDown
- OnMouseUp = Label27MouseUp
- end
- object Label28: TLabel
- Left = 424
- Top = 416
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = '��k��'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label28MouseDown
- OnMouseUp = Label28MouseUp
- end
- object Image4: TImage
- Left = 544
- Top = 32
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image005.jpg>}
- OnMouseDown = Image4MouseDown
- OnMouseUp = Image4MouseUp
- end
- object Image5: TImage
- Left = 576
- Top = 32
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image006.jpg>}
- OnMouseDown = Image5MouseDown
- OnMouseUp = Image5MouseUp
- end
- object Image8: TImage
- Left = 544
- Top = 32
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image007.jpg>}
- Visible = False
- end
- object Image9: TImage
- Left = 576
- Top = 32
- Width = 30
- Height = 28
- AutoSize = True
- Picture.Data = {<image008.jpg>}
- Visible = False
- end
- object Label3: TLabel
- Left = 480
- Top = 248
- Width = 28
- Height = 13
- Caption = 'Aral���'
- Transparent = True
- end
- object Label4: TLabel
- Left = 72
- Top = 272
- Width = 43
- Height = 13
- Caption = '�lk De�er'
- Transparent = True
- end
- object Label5: TLabel
- Left = 72
- Top = 296
- Width = 57
- Height = 13
- Caption = '�kinci De�er'
- Transparent = True
- end
- object Label6: TLabel
- Left = 360
- Top = 272
- Width = 43
- Height = 13
- Caption = '�lk De�er'
- Transparent = True
- end
- object Label7: TLabel
- Left = 360
- Top = 296
- Width = 57
- Height = 13
- Caption = '�kinci De�er'
- Transparent = True
- end
- object Label9: TLabel
- Left = 72
- Top = 232
- Width = 69
- Height = 13
- Caption = '�stenen Durum'
- Transparent = True
- end
- object Label15: TLabel
- Left = 360
- Top = 232
- Width = 52
- Height = 13
- Caption = 'Kay�t Tarihi'
- Transparent = True
- end
- object DBEdit1: TDBEdit
- Left = 144
- Top = 288
- Width = 121
- Height = 21
- DataField = 'Ikincifiyat'
- DataSource = DataSource1
- TabOrder = 12
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBNavigator1: TDBNavigator
- Left = 40
- Top = 72
- Width = 570
- Height = 18
- DataSource = DataSource1
- Hints.Strings = (
- '�lk Kay�t'
- '�nceki Kay�t'
- 'Sonraki Kay�t'
- 'Son Kay�t'
- 'Kay�t Ekle'
- 'Kay�t Sil'
- 'De�i�iklik'
- 'Onayla'
- 'De�i�iklik �ptal'
- 'Yenile')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 17
- end
- object DBEdit8: TDBEdit
- Left = 144
- Top = 264
- Width = 121
- Height = 21
- DataField = 'Fiyatilkdeger'
- DataSource = DataSource1
- TabOrder = 11
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBMemo1: TDBMemo
- Left = 144
- Top = 352
- Width = 401
- Height = 41
- DataField = 'Notlar'
- DataSource = DataSource1
- TabOrder = 16
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit19: TDBEdit
- Left = 424
- Top = 104
- Width = 121
- Height = 21
- DataField = 'Isim'
- DataSource = DataSource1
- TabOrder = 6
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit20: TDBEdit
- Left = 424
- Top = 128
- Width = 121
- Height = 21
- DataField = 'Telefon'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 7
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit21: TDBEdit
- Left = 424
- Top = 152
- Width = 121
- Height = 21
- DataField = 'Istel'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 8
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit22: TDBEdit
- Left = 424
- Top = 176
- Width = 121
- Height = 21
- DataField = 'Ceptel'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 9
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBMemo2: TDBMemo
- Left = 144
- Top = 320
- Width = 401
- Height = 25
- DataField = 'Adres'
- DataSource = DataSource1
- TabOrder = 15
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBLookupComboBox1: TDBLookupComboBox
- Left = 144
- Top = 104
- Width = 121
- Height = 21
- DataField = 'Semtadi'
- DataSource = DataSource1
- KeyField = 'Semtler'
- ListField = 'Semtler'
- ListSource = DataSource2
- TabOrder = 0
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBLookupComboBox2: TDBLookupComboBox
- Left = 144
- Top = 128
- Width = 121
- Height = 21
- DataField = 'Emlak'
- DataSource = DataSource1
- KeyField = 'EmlakTipi'
- ListField = 'EmlakTipi'
- ListSource = DataSource3
- TabOrder = 1
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBComboBox1: TDBComboBox
- Left = 144
- Top = 176
- Width = 121
- Height = 21
- DataField = 'Oda'
- DataSource = DataSource1
- ItemHeight = 13
- Items.Strings = (
- '2+1'
- '3+1'
- '4+1'
- 'Farketmez')
- TabOrder = 3
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBComboBox2: TDBComboBox
- Left = 144
- Top = 152
- Width = 121
- Height = 21
- DataField = 'Kat'
- DataSource = DataSource1
- ItemHeight = 13
- Items.Strings = (
- '1'
- '2'
- '3'
- '4'
- '5'
- 'Farketmez')
- TabOrder = 2
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit2: TDBEdit
- Left = 424
- Top = 264
- Width = 121
- Height = 21
- DataField = 'IlkMetre2'
- DataSource = DataSource1
- TabOrder = 13
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit3: TDBEdit
- Left = 424
- Top = 288
- Width = 121
- Height = 21
- DataField = 'Ikincimetre2'
- DataSource = DataSource1
- TabOrder = 14
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBComboBox3: TDBComboBox
- Left = 424
- Top = 200
- Width = 121
- Height = 21
- DataField = 'Durum'
- DataSource = DataSource1
- ItemHeight = 13
- Items.Strings = (
- 'Buldu'
- 'Bulamad�')
- TabOrder = 10
- end
- object DBComboBox4: TDBComboBox
- Left = 144
- Top = 200
- Width = 121
- Height = 21
- DataField = 'Isisistemi'
- DataSource = DataSource1
- ItemHeight = 13
- Items.Strings = (
- 'Sobal�'
- 'Do�al Gaz Kaloriferli'
- 'Do�al Gaz Sobal�'
- 'Kalofiferli')
- TabOrder = 4
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBComboBox5: TDBComboBox
- Left = 144
- Top = 224
- Width = 121
- Height = 21
- DataField = 'Istek'
- DataSource = DataSource1
- ItemHeight = 13
- Items.Strings = (
- 'Kiralanmad�'
- 'Sat�lmad�')
- TabOrder = 5
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit4: TDBEdit
- Left = 424
- Top = 224
- Width = 121
- Height = 21
- DataField = 'Tavanlar'
- DataSource = DataSource1
- TabOrder = 18
- OnEnter = DBEdit4Enter
- end
- object DataSource1: TDataSource
- DataSet = Table1
- Left = 56
- Top = 8
- end
- object Table1: TTable
- Active = True
- AfterPost = Table1AfterPost
- TableName = 'musteritalepleri.db'
- Left = 88
- Top = 24
- object Table1No: TAutoIncField
- FieldName = 'No'
- ReadOnly = True
- end
- object Table1IlkMetre2: TFloatField
- FieldName = 'IlkMetre2'
- end
- object Table1Ikincimetre2: TFloatField
- FieldName = 'Ikincimetre2'
- end
- object Table1Hidrofor: TStringField
- FieldName = 'Hidrofor'
- Size = 10
- end
- object Table1Zeminler: TStringField
- FieldName = 'Zeminler'
- Size = 15
- end
- object Table1Kapilar: TStringField
- FieldName = 'Kapilar'
- Size = 15
- end
- object Table1Ikincifiyat: TCurrencyField
- FieldName = 'Ikincifiyat'
- end
- object Table1Kat: TStringField
- FieldName = 'Kat'
- Size = 6
- end
- object Table1Notlar: TMemoField
- FieldName = 'Notlar'
- BlobType = ftMemo
- Size = 100
- end
- object Table1Dviz: TStringField
- FieldName = 'D�viz'
- Size = 15
- end
- object Table1Adres: TMemoField
- FieldName = 'Adres'
- BlobType = ftMemo
- Size = 50
- end
- object Table1Isim: TStringField
- FieldName = 'Isim'
- end
- object Table1Istel: TStringField
- FieldName = 'Istel'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1Anahtar: TStringField
- FieldName = 'Anahtar'
- end
- object Table1Fiyatilkdeger: TCurrencyField
- FieldName = 'Fiyatilkdeger'
- end
- object Table1Oda: TStringField
- FieldName = 'Oda'
- end
- object Table1Isisistemi: TStringField
- FieldName = 'Isisistemi'
- end
- object Table1Otopark: TStringField
- FieldName = 'Otopark'
- end
- object Table1Duvarlar: TStringField
- FieldName = 'Duvarlar'
- end
- object Table1Tavanlar: TStringField
- FieldName = 'Tavanlar'
- end
- object Table1Banyo: TStringField
- FieldName = 'Banyo'
- end
- object Table1Emlak: TStringField
- FieldName = 'Emlak'
- end
- object Table1Telefon: TStringField
- FieldName = 'Telefon'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1Ceptel: TStringField
- FieldName = 'Ceptel'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1Durum: TStringField
- FieldName = 'Durum'
- end
- object Table1Semtadi: TStringField
- FieldName = 'Semtadi'
- end
- object Table1Istek: TStringField
- FieldName = 'Istek'
- Size = 15
- end
- end
- object DataSource2: TDataSource
- DataSet = Table2
- Left = 208
- Top = 8
- end
- object Table2: TTable
- Active = True
- TableName = 'semtler.db'
- Left = 272
- Top = 8
- end
- object DataSource3: TDataSource
- DataSet = Table3
- Left = 352
- Top = 16
- end
- object Table3: TTable
- Active = True
- TableName = 'emlaktanimlama.db'
- Left = 392
- Top = 8
- end
- end
-